home *** CD-ROM | disk | FTP | other *** search
!This program cannot be run in DOS mode. .rdata @.rsrc @.reloc Asymetrix ToolBook Application MINSTB32.dll Glue to WinFTP xxGlue to WinFTP Progress by file Allow Overwrite DB Local Files Manager Login DB Batch Upload Spec - Standalone x Batch Upload Spec - Standalone Batch Upload Spec - Standalone ftp Error Strings Message Box ..?@?>BCFGMZ`dilpskkwwz| |wunyvu}vlif`\^clkimnipk ...A?@CBBEGPIPVbjv| {vwxumjcVIIIMPNP^cgcc^_X 96050310315587518218152151660 ASYM_TpID Allow Overwrite DB default button Button id 4 of Page id 11 cancelBtn Button id 1 of Page id 11 defBtn ASYM_Reset leavePage notifyBefore ASYM_Reset notifyAfter Yes to &All Cancel Cancel ASYM_Reset author enterPage leavePage keyChar 9604081814428702106517065682 ASYM_TpID ftp Error Strings ,,H., Ty_ftp_getString FTP Error code: %1 ftpGetErrorString ftpGetErrorString errNo xisType(REAL, ( = 0 n = (n = n = (- expandString(_ftp_getString("FTP code: %1"), 110 Restart marker reply. 120 Service ready in nnn minutes. 125 Data connection already open; transfer starting. 150 File status okay; about to open data connection. 200 Command okay. 202 Command not implemented, superfluous at this site. 211 System status, or system help reply. 212 Directory status. 213 File status. 220 Service ready for new user. 221 Service closing control connection. 225 Data connection open; no transfer in progress. 226 Closing data connection. Requested file action successful (for example, file transfer or file abort). 227 Entering Passive Mode (h1,h2,h3,h4,p1,p2). 230 User logged in, proceed. 250 Requested file action okay, completed. 257 "PATHNAME" created. 331 User name okay, need password. 332 Need account for login. 350 Requested file action pending further information. 421 Service not available, closing control connection. 425 Can't open data connection. 426 Connection closed; transfer aborted. 450 Requested file action not taken. File unavailable (file may be busy) 451 Requested action aborted. Local error in processing. 452 Requested action not taken. Insufficient storage space in system. 500 Syntax error, command unrecognized. 501 Syntax error in parameters or arguments. 502 Command not implemented. 503 Bad sequence of commands. 504 Command not implemented for that parameter. 504 Command not implemented for that parameter. 530 Not logged in. 532 Need account for storing files. 550 File or directory is unavailable (not found or access denied.) 551 Requested action aborted. Page type unknown. 552 Requested file action aborted. Exceeded storage allocation. 553 Permission denied.on. 553 Permission denied.ssion denied..ied.ction not taken. Permission denied.wed. Glue to WinFTP Glue to WinFTP Local Files Manager Local Files Manager 6225,1425 defsize 940730143453749952493 ASYM_TpID ToolBook II Instructor 6.0 FTP System Book Copyright Asymetrix Learning Systems Inc. 1990-19971997 Title Message Box Message Box edFi$ YM_BeenHere ASYM_TpID 9603221713223693444260124004 Progress by file Cancel cancel buttonClick buttonClick Cancel Progress in list Status xRange enterPage notifyBefore Cancel Prompt Press and hold Escape to cancel enterPage ASYM_Reset leavePage 9604101821231406502216462581 ASYM_TpID Login DB oad Spec - Standalone Default Button Button id 24 of Page id 5 cancelBtn Button id 23 of Page id 5 defBtn &Host: propValue propValue leaveField propvalue asym_reset propValue = trim( notifyBefore asym_reset opropvalue = custom propType Login &Name: propValue propValue leaveField propvalue asym_reset propValue = trim( notifyBefore asym_reset opropvalue = custom propType &Password: Password custom propType &Account: Account propValue propValue leaveField propvalue asym_reset propValue = trim( notifyBefore asym_reset opropvalue = custom propType Cancel cancel buttonClick buttonClick Cancel buttonClick buttonClick asym_reset author enterPage keyChar ASYM_TpID 960322171356369378298562036 !DH*H*HS Batch Upload Spec - Standalone defPushButtonWidget tbk_wid_name Button id 23 of Page id 12 _currentDefButton Default Command Button Widget (unnamed) 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-12-7 ASYM_WID_CreateDate Shadow Highlight Caption Source (unnamed) 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-12-7 ASYM_WID_CreateDate Shadow Highlight Caption Destination &Host: propValue propValue _ftp_trim leaveField asym_reset propValue = _ftp_trim( notifyBefore asym_reset custom propType Login &Name: propValue propValue _ftp_trim leaveField asym_reset propValue = _ftp_trim( notifyBefore asym_reset custom propType &Password: Password custom propType &Account: Account propValue propValue _ftp_trim leaveField asym_reset propValue = _ftp_trim( notifyBefore asym_reset custom propType Remember login enterPage propValue propValue buttonClick propvalue asym_reset notifyBefore propValue buttonClick qasym_reset opropvalue = boolean propType Remem&ber remote dir explain asym_reset notifyBefore asym_reset Unless you specify a directory, the files will be copied into the login directory.y &Remote directory: Remote directory custom propType oldEmpty &Local directory Local Directory custom propType Choose Local Directory oldDir defDir propValue risNumber Ty_ftp_getString _ftp_CurrentDirectory Local Directory Local (source) directory: mU_ftp_SetCurrentDirectory propValue ASYM_ChooseDirectoryDlg buttonClick buttonClick oldDir = _ftp_CurrentDirectory() fld = "Local defDir = propValue ASYM_ChooseDirectoryDlg (_ftp_getString(" Q(source) directory:"),\ (isNumber( r> -1) _ftp_SetCurrentDirectory( excludeDefault Source Options LocalDirectory choice custom propType LocalDirectory All files in local direc&tory FileList List of &files Local Dir Spec local dir explain asym_reset notifyBefore asym_reset All the files in this directory, and all the files in subdirectories, will be copied to the destination directory and its subdirectories. Subdirectories will be created as necessary. Recurse boolean propType Incl&ude subdirectories File List Spec file list file explain This is a text file that contains a list of the files to copy to the remote directory. File list file file list file name buttonDoubleClick fld = "file list = FALSE = TRUE &File list file: *#\&t& File List File Name custom propType FALSE typedIn Choose File List File oldDir prompt defDir risNumber ,2ftp_SetCurrentDirectory File List File Name File containing the list: defFn propValue List Files (*.lst),*.lst,All Files (*.*),*.* _ftp_PathOfFile filters propValue Local Directory ASYM_OpenFileDlg ftp_CurrentDirectory buttonClick buttonClick oldDir = ftp_CurrentDirectory() fld = "File List Name" defDir = propValue defFn = xNULL filters = " xFiles (*.lst),*. ,All *),*.*" --** INTERNATIONAL prompt = " containing the list:" --** -- openFileDlg(< >,<default file>,< path>,< >,<index>) ASYM_OpenFileDlg ( (isNumber( r> -1) --DG SPR 1793 Local " = _ftp_PathOfFile( 1793 cad980825 ftp_SetCurrentDirectory( Most Web servers use lowercase names only. PromptOverwrite propValue false propValue propvalue asym_reset propValue notifyBefore asym_reset opropvalue = boolean propType &Confirm before replacing existing files OnlyIfNewer propValue false propValue propvalue asym_reset propValue notifyBefore asym_reset opropvalue = boolean propType Copy only if local file is m&ore recent ForceLowerCase propValue false propValue propvalue asym_reset propValue notifyBefore asym_reset opropvalue = boolean propType Force file names to lower ca&se ShowProgress propValue FALSE propValue propvalue asym_reset propValue xFALSE) notifyBefore asym_reset opropvalue = boolean propType &Display a progress window ShowResult propValue false propValue propvalue asym_reset propValue notifyBefore asym_reset opropvalue = boolean propType Display a &message box when done or if an error is detected mouseEnter mouseLeave i= 0,25,0 Copyright 1996-1998 Asymetrix Learning Systems, Inc. buttonClick Ty_ftp_getString Start enterPage buttonClick notifyBefore K= _ftp_getString("Start") !OK") default Start Cancel _ftp_messageBox oldFocus YesNo cancel Ty_ftp_getString ConfirmClose Are you sure you want to close? Question buttonClick Cancel Ty_ftp_getString Close enterPage buttonClick oldFocus = _ftp_messageBox(_ftp_getString("ConfirmClose",\ "Are you sure want close?"),"FTP","Question","YesNo") notifyBefore ancel") default escape Close tb60ftp.hlp %ASYM_WinHelp buttonClick buttonClick ASYM_WinHelp (NULL, "tb60ftp.hlp") password asym_reset enterPage paste clear setCurrentDefaultButton setDefaultButton enterField enterRecordField enterCombobox enterButton keyDown author reader leavePage selectionChanged setWidgetScript leaveButton author Login DB Overwrite File P Login Batch Upload DB ge id 6 FTP Transfer Page "Batch Upload Spec - Standalone" s_asym_ftpProgressMessage fCaption Progress 1 fCaption ge id 10 of Book "G:\MTB41\TB50FTP.SBK" Allow overwrite FTP Login s_asym_ftpProgressMessage Page id 11 of Book "G:\MTB41\TB50FTP.SBK" Page id 10 of Book "D:\TBSHARED\TBSystem\TB60FTP.SBK" Page id 5 of Book "D:\TBSHARED\TBSystem\TB60FTP.SBK" MAXTOR-1 E:\biography\puppy9.exe E:\biography E:\biography\puppy9.exe(Y _asym_HyperPath <BookPath> :HDMEDIAPATH ftp_relogin s_asym_ftpUserID s_asym_ftpHandle iftp_open s_asym_ftPwd s_asym_ftpAccnt asym_ftpLogin asym_ftpLogin hostname, userID, pwd, accnt 4s_asym_ftpHandle, s_asym_ftpUserID, s_asym_ftPwd, s_asym_ftpAccnt B = ftp_open( hndl <= 0 -345 -- Magic "invalid ftp_relogin( ) <> 0 - 444 -- " refused" = ftp_login(" ", "myuserid", "mypassword", ""); > 0 ) 8", " ", "") == 0 ) ftp_quit( 3:24:41 PM info_LastSavedBy 4/8/96 12:37:10 PM info_LastSaved 4/8/96 3:48:58 PM 4/8/96 3:55:07 PM MS Sans Serif 4/8/96 7:02:04 PM Times New Roman Charley Delaney Tom Giammarresi MS Sans Serif System Mike Florence Arial s Serif Arial s Serif Arial Arial Arial Tim Barham ASYMA_CustomColors 11/27/99 9:53:35 AM ASYMA_LastCatalog 10/26/98 9:23:10 PM ASSIST.WBK 0,75.3125,0 180,25.125,100 120,50,100 132,67.25,50.875 125,50,45.875 129,67.0625,79.8125 240,75.125,100 180,75.125,100 :44:25 PM ASYM_AuthorResetPrompt ASYM_CaptionBar ASYM_BorderStyle ASYM_LogAppend ASYM_LogEncrypt <auto> ASYM_LogName Arial Arial author skrefFocus cancelBtn refBtn keyChar Cancel cancelBtn refBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn button field skrefFocus pushbutton cancelBtn defBtn WORDWRAP rkrefFocus notifybefore notifyAfter xisOpen targetWindow) (currentPage targetwindow <> x = 13 orefBtn enabled buttonClick orefFocus x = 27 ocancelBtn notifyBefore B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn o = o = NULL o <> " OK = ( fieldType "WORDWRAP") u = sysPageUnitsPerPixel x1 - x, y1 - y, x2 + x, y2 + y trueText propValue ,,H., trueText propValue trueText asym_reset trueText s_pwStr keyChar trueText s_pwStr keydown s_pwStr trueText enterField trueText propValue s_pwStr propValue leaveField propValue otrueText # = "*" notifyBefore asym_reset 4s_pwStr = keyEnter selectedTextState AnsiToChar( caretLocation + 1) ) > 0 = home , TRUE, author skrefFocus cancelBtn refBtn keyChar Cancel cancelBtn refBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn button field skrefFocus pushbutton cancelBtn defBtn WORDWRAP rkrefFocus notifybefore notifyAfter xisOpen targetWindow) (currentPage targetwindow <> x = 13 orefBtn enabled buttonClick orefFocus x = 27 ocancelBtn notifyBefore B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn o = o = NULL o <> " OK = ( fieldType "WORDWRAP") u = sysPageUnitsPerPixel x1 - x, y1 - y, x2 + x, y2 + y trueText propValue ,,H., trueText propValue trueText asym_reset trueText s_pwStr keyChar trueText s_pwStr keydown s_pwStr trueText enterField trueText propValue s_pwStr propValue leaveField propValue otrueText # = "*" notifyBefore asym_reset 4s_pwStr = keyEnter selectedTextState AnsiToChar( caretLocation + 1) ) > 0 = home , TRUE, button currentDefButton commandbutton setCurrentDefaultButton false button 3default defCmdButton commandbutton setDefaultButton _currentDefButton hideDefRect currentDefButton <lexcludeDefault button defCmdButton buttonRef _currentDefButton CommandButton currentDefButton _currentDefButton currentDefButton hideDefRect button btnList CommandButton cmdButtonList 3default btnList `cmdButtonList defCmdButton btnList escape `cmdButtonList escCmdButton btnList `cmdButtonList hlpCmdButton defCmdButton defBtn zshowRect showDefRect currentDefButton hideDefRect showRect showDefRect enterField showDefRect enterRecordField showDefRect enterCombobox showDefRect <lexcludeDefault zshowRect CommandButton enterButton hideDefRect CommandButton leaveButton currentDefButton !escCmdButton (hlpCmdButton field keyDown hideDefRect author showDefRect author reader _currentDefButton ASYM_Reset FALSE author enterPage reader showDefRect leavePage false author selectionChanged tbk_wid_name setWidgetScript -- Default Command Button Widget -- Written HCharley Delaney -- Modifications HTim Barham -- Based on cPush HJeff Day -- Updated Windows 95 !Ayars -- Copyright 1994-1998, Asymetrix Learning Systems, Inc. All Rights Reserved. -- Implements windows standard Bbehavior -- dialogs. A -- CommandButton) responds clicked the Enter key -- pressed . When no 9"default" %though [. The -- that will highlighted -- darkened border ( Zproperty -- Also enables linking Help Cancel buttons -- Esc 6, respectively. -- This widget makes use following Breceives buttonClick , unless another non-excluded -- escape -- help -- excludeDefault , even -- In addition, messages can be sent -- setDefaultButton btnRef -- sets passed -- clears -- setCurrentDefaultButton -- current -- enter key) ; does xchange persistent -- notifyBefore "commandbutton" currentDefButton() = defCmdButton() hideDefRect() o_currentDefButton = buttonRef = xTRUE clearDefRect -- bList = cmdButtonList() Zstack btnList = getObjectList( escCmdButton hlpCmdButton showDefRect ls = lockScreen defBtn = showRect( e= ls " obj enterCombobox notifyAfter keyEnter <> NULL ASYM_Reset alwaysReader e= FALSE selectionChanged setWidgetScript tbk_wid_name, newScript default button password field default button password field DefCmdButton __ftpDLLName -- Names the FTP PossibleNames = "tb2ftp.dll,tb5ftp. winftp. 2ftp32. winftp32. dirName = objectContainer ( -<> "\" xNULL dllName fileExists( ) = 1 possibleNames _ASYM_ftpBatchPutDirectory szHost, szUser, szPassword, \ szAccount, szLocalDir, szRemoteDir, boolRecurse, \ boolLowerCase, boolPromptOverwrite, bOnlyIfNewer,\ boolProgressMessage, szDoneMessage, szJavaTopDir 4s_asym_ftpHandle, s_asym_ftpUserID, s_asym_ftpPassword,\ s_asym_ftpAccnt, s_asym_ftp_fcnt, s_asym_ftp_promptOverwrite,\ s_asym_ftpfsize, s_asym_ftp_fcntToDo, s_asym_ftp_fcntUpdated, s_asym_ftp_fCntDone 4s_asym_ftp32 ZLocalDirMap[][], RemoteDirMap[][] ZerrStr myBk = oldCursor = result = 0 xFALSE) ftp_isDirectory( fileNameMask = & "*.*" r= expandString(_ftp_getString("No Zdir named X",\ directory xfound: %1"), bPromptOverwrite = InitFTPLink( --- If >= 0, WE ARE NOW CONNECTED ! LoginPwd = ftp_pwd( MoveToRemoteDirectory( currentPwd = -- reset = 0 ted = 0 setFTPDLLOptions Binary = countFiles( strCopying = _ftp_GetString("Inventorying","Checking files") ShowStatus -- Map subdirectories, Xwhether -- they exist can be created on remote -- 4copying * GetLocalDirMap( , "ftp")\ Manager" dimensions( javaFlag = dirInJavaDir( , i, lc = CreateOrVerifyRemoteDir( ,i, lc, >= 0 -- To Upload",\ upload site.") s_asym_ftp_fCntToDo = xinDir( lc = 0 lc = 2 CopyingFiles",\ (s)...") strCnt = ,"%1 x updated","%2 x copied","%2 "; " & ,s_asym_ftp_fCntUpdated),\ -- "root" ) > 0 ftp_GetLastError() putDirFiles( , lc,\ ftp_mput( , lc) checkFTPResult( >= 0 each , i, lc = 0 lc = 2 PutSubDirFiles( ,i, lc, = ftp_GoodBye() showStatus ! < 0 r= "Undetermined error." o <> -26 ShowOptionalDone >= 0 Hreference, i, testDir = i][j] = i][j] & "\" msg, progress statusPg = FTPShowStatus _ASYM_ftpBatchPutFilesFromList szFileListFileName, \ ZWORD cntDone, xasym_ftpLinkDLL() = GetShortFileName32( -- Dopple SPR#1793 SladeM 082498 = ftp_CurrentDirectory() = _ftp_PathOfFile( sz_LocalDir = Try() ss = (-sysErrorNumber) >= 0, list --- If >= 0, WE -- = 0 ...") ,"%1 "; " & -- = 565 -- OK, here we ss = <> 0 <> 565 -- EOF _ftp_trim( lowerCase( srcFn = destFn = -- Validate source actualSrcFn = ":\" "\\" FileExists( x",\ "Cannot find %1"), -- -- & ",0,0" -- -- DestFileNameWasSpecified = ( getLongFileName32( -- 8.3 -- Use destination, but path portion Vi+1 -- Detect -- does, spec -- navigate equivalent ) = 1 copyResult = 0 dirDepth = 0 destPath = ~("\", ) = 0 ~("/", ) = 0 ".\" ~("\", ) = 0 "./" ~("/", ) = 0 ("/" ("\" ~("/", cp > 0 ~("/", Vi+1 c"\") (":\" ("\\" -- If specified -- where we . If , the -- will be a subdirectory that dirs %needed oldPwd = ) > 0 ) --** DEBUG ~("\", p = 1 p > 0 ftp_CWD( exists xseem ,. Try ftp_mkdir( isNumber( ASYM_ftpGetErrorString( CannotCreateRemoteDir X",\ %1"), -- If no occured, we should OK = xisRemoteFileOlder( OK = destInfo = ""%1"""), allowOverwrite( OK = = -26 OK = Canceled Huser",\ getShortFileName32( ":\" & "\" ftp_ProgressBox( ftp_put( ftp_CDUp( -- This * happen. Yeah, r= "Out sync walking ftp_cwd( = 565 = 565 ssnu = a >= 0 ! = 0 -- ftp_Goodbye() !< 0 ^!<> -26 z!>= 0 se = ss = close r= se bProgressMessage, bLowerCase, bBinary lc = 0 lc = 2 ftp_setASCII( ftp_setBinary( static var rcode = ftp_replyCode( 4# = c"aborted '#-26 d# = "Transfer canceled m>= 400 x< 600 "UnknownTransferError X",\ cuploading &(s)."), -- Brain 2694 - I don't why getting -- cleared causing problems because assumed be a valid -- boolean lots places. _ASYM_ftpGetFile &RemoteFileName, szLocalFileName, \&boolBinary szRemoteFileName v%>= 0 %>= 0 ) = 1\ xisLocalFileOlder( %-121 d(.") $&>= 0\ ) = 1 _ftp_AllowOverwriteDB( "Yes" &>= 0 &>= 0 tempFn = destfN = ) did #already; e( = & "$$$FTP$.TMP" _( = ftp_Quit( M(< 0 asym_ftpGetErrorString( (-425 H+ X ,Y",\ a+ ""%1"" 9,Server ""%2""."),\ CRLF & moveFile( ) = 1 RemoveFile( )< 0 "%1" h*<> -26 _ASYM_ftpPutFile FileExists32( r= errString32( *BadLocalFileNameX",\ p: %1"), fN = fN = $. = boolPromptOverWrite ,>= 0 remoteFn = Vi+1 xreally a loop, used easy tryPwd = tryDir = >= 0 remFileInfo = remoteFileInfo( >= localFileDateInSeconds( .- 121 7.on 2server ""%1"""), P/-26 s/>= 0 />= 0 |1fN, ftp_quit( b1 = >.Cantput X Y on Z",\ 3 ""%1"" 3 ""%2"" on 3""."),\ 1<> -26 e3 = r3 = 42>=0 dosDLL = "tbdos.dll" ss = linkDLL INT STRING) GetDirectoryOnlyList( ' GetFileDate( ; GetFileList( LONG GetFileSize( e GetFileOnlyList( GetFileAttributes( MoveFile( verNo = 40 4 = ASYM_Is32Bit() fileDLL32 = "tbfile32. p4 = ( = -24 file32DLL && " +" && "Continuing without psupport." CopyFile = copyFile32( CreateDirectory = createDirectory32( ! = fileExists32( GetCurrentDirectory = GetCurrentDrive = GetCurrentDrive32() = GetFileAttributes32( = GetFileDate32( = GetFileList32( = GetFileOnlyList32( = GetFileSize32( = MoveFile32( = RemoveFile32( SetCurrentDirectory = SetCurrentDrive = SetCurrentDrive32( "kernel" GetTempFileName(BYTE, +,POINTER) +GlobalAlloc( +,DWORD) $ GlobalLock( +GlobalUnlock( +GlobalFree( ,BringWindowToTop( %,ShowWindow( IsWindow( ftp_Abort( ftp_CopyReplyStr(INT, ftp_delete( ftp_dir( ,remotedir| y,localfile ,remotefile, ftp_getReply( ftp_IsConnected( ftp_SetLocalDir = ftp_lcd( ftp_login( ftp_ls( _ftp_lastError = ,INT) -- ftp_mget( _ftp_mput = ftp_OpenHostSession = ftp_open( _ftp_put = _ftp_pwd = _ftp_quote = ftp_relogin( ftp_rmdir( ftp_setbinary( = ftp_statusBox( -- _ftp_messageBox( , hand) 4 p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 op1,p2,p3,p4,p5,p6,p7,p8,p9, CountFiles -2rowN, lc, bProgressMsg 'dead reckoning -- At function, we must -- same which we started. ZstrMsg >)--** remDir = U& ",0,0" -- Does =<> 0 -- =<> 0 "ir X",\ ~=%1"), L>ErrNavRemTree",\ navigating ;tree"), hBuff = 0x0042,256) lpBuff = , 255) FlushMessageQueue() mmYield unlinkDLL , 255) c, cmd , 255) "oops" ftp_replyString ftp_CopyReplyString( , 255) FTPErrNoFromErrString s -- Parses bEstrange 8 strings IEdll extract < 999 getDirSeparator systName = ftp_Quote( 4D"SYST") -- Fill %we learn about different systems c":\" c"\" sep = "\" c"Windows" c"NT" //" -- F99.99% EboolShowProgress =E_asym_ftpHost, \ !Easym_ftpPwd pAConnecting", " ..."), 2A we believe we are linked oldEnMW = enabled s_asym_ftpHost ftp_isConnected( F) = 1 gG) = 0 -- Different connection -- Looks like we = ftp_openHostSession( errNo = "unknown host" ': %1" & "Connection failed.") xJX",\ 1"".") = -( >= 0 ;I = > 0 %H> 0 FEConnectedLogin",\ . Logging ..."), H<> 0 KY",\ ~+ ""%1"" refused = -( zJ = = -26 >= 0 G OK",\ G successful. One moment, please..."), -- store /Moriginal s_asym_ftpPwd = <LcreateIfNecessary Mbase Mdesired -- Assume always "moving -- Returns 0 , negative zotherwise rightMatch( ^Mpwd) trouble. We parse -- Identify Oseparator .Ktrees -- We may have guess. If was xcorrect, let us try -- a couple others. , but, hey 3ftp xfollow convention? seps = ParseDirs( err = 0 3[i]) <> 0 , maybe 4[i]) <> 0 -- We big -- probably 550 permission denied (MCannotGoOrMakeRemDir X",\ x:access 0M""%1"" ."), 4[i]) -- Created , let's 5[i]) <> 0 Mx",\ M%1."), O5[i]) Nx",\ N%1."), 5[i]) debugpwd = dirspec, cnt = 0 p = cp > 0 8 <> p = 1 -- special M-- travel p = p > 0 p = 1 -- weird M"//" p = ~(sep, p > 0 27[cnt] = p = R bShowProgress R)--** subDir = (& "\" lc = 0 -- -- got a there T & "*.*" Q, lc,\ PutDirFiles R, lc,\ Ts__ftp_tempDirFile oP...") P,"%1 "; " & T = 0 -- Assumes we @U = RU > 0 removeFile( = ASYM_ftpMakeTempFile(" V"*.*", S -- fList = Tx",\ T""%1"""), fn = fullFn = dA& fn fn = ),1)) fn = <W = U(fn) Vj+1 lc = 1 DupperCase( lc = 0 Xfn, = -26 Yfn, xX< 0 ,Yted X, lc) se = r= se ]Z = 200 D?err) H=.") *ZUnspecifiedMassPutError",\ V](s).") [s__ftp_remdirlist getRemoteFileList 32000 \localFn, d1 = d2 = RemoteFileInfo( d2 = remoteFileDateInSeconds( d2 >= d1 @[ -- doubt, 's older d1 = d2 = d2 < d1 [ -- ZisNT, dirInfo, fnDir *lstrcmp( Lfn = U(fn) i > 1 fn = Vi+1 Y e(" o_)--** @$<> _"*.*", dummy = ss = d = 0 sz = 0 , fn) = 0 d1 = d2 = "mm-dd-y" "hh:minAMPM" d = d1 + d2 sz = = d && sz && fn , fn) = 0 sz = t = 0 d1 = d2 = "h24: & ", " & "MMM d, y" = d && sz && fn IO, destFnInfo, srcFnInfo, isBatch KVexactMatch "All" Wb-26 --** magic " FindFileInRemDirList fn ,fn) = 0 substrng, @e = =cBad transfer",\ "The could xbe completed.") Q^."), f = "info" f"FTP", _ASYM_ftpMakeTempFile szStub szStup getTempFileName(0, <> -1 _ASYM_ftpDeleteLocalFile szFn oi32-bit version ASAP r= se _ftp_delFileTree p1,p2,p3,p4,p5,p6,p7 zapDirFiles ( /g,p1,p2,p3,p4,p5,p6,p7) _ftp_delDirTree p1,p2,p3,p4,p5,p6,p7 ff,p1,p2,p3,p4,p5,p6,p7) uboolDelTheDir, iConfirm, szShowResult 4s_asym_ftp_delOK, s_asym_ftp_delFailed qh>=0 --- If h>= 0, WE h>= 0 -- h>= 0 boolConfirm )fDelDirtree confirm",\ qh""%1"""\ fDelFileTree h""%1""?") _ftp_MessageBox( "question","YesNo") "j-26 2j>= 0 beginPwd = d = 0 -- jdeleteFilesInCurrentRemoteDir( j>= 0) dirToZap = Vi+1 se = lloginPwd) r= se k>= 0 B"",\ "Successfully deleted $k""%1"""\ PiDelFiletree k""%1."""\ GC"%2 l>= 0 captn = SPACE icn = " jDeltree xIdeleting Pl""%1"""\ (j.")\ -- |o"", Vn>= 0 remFn = x"." x".." ,o>= 0 p"", vAnds fN :=fn) "mm/dd/y" j:sec" -- assumes we 2rfN, ss = -- UNIX -- unix? t = 0 d1 = d2 = d = & ", " & -- NT? d1 = d2 = "mm-dd-y" d = d1 + d2 69p1,p2,p3 ConfirmAbortTransfer() disableViewers 9(p1,p2,p3) ReEnableViewers r p1,p2,p3 ;s(p1,p2,p3) `:p1,p2,p3 :(p1,p2,p3) 4s__winArray[][] 4s__winArrayCnt ;i][1] = Ei][2] mainWin = windowHandle isWindow(MainWin) <> 0 DisableViewers activeWin = winList = sysOpenWindows ][1] = ][2] = PsAskCancelFileXfer",\ ?")," x"No") ?Y.") q childSpec, parentDir --returns a sub Z <> "\" propValue fixMyPrompt buttonClick oenabled txt = _ftp_getString("Must specify Zdir",\ "You must Zdirectory.") Rng("Explain recurse",\ "All the files subdirectories,"\ && "will be copied ?destination && "Subdirectories @reated %necessary.") explain" = txt notifyBefore asym_reset opropvalue = buttonClick opropValue = -- If list, the 2nd "lock", -- disable that was xchosen, lockOut = FALSE p) > 1 = "LocalDirectory" ochoice = OK = ( = OK enabled 4 = (OK) I = TRUE grpLocalDirSpec = grpFileListSpec = propValue ooldEmpty fixMyPrompt = _ftp_trim( notifyBefore y) <> txt = _ftp_getString("Explain no remdir",\ "Unless you specify a directory, the files will be copied"\ login "The Mspecified && "If v does xexist, treated "remote explain" asym_reset notifyBefore reset bar = fld = "status" sysPageUnitsPerPixel Hxp*2 Hyp*2 Hxp*2 Hyp*2 xRange x2 - x1 x1,y1,x1,y2 progress ZtheCaption cnt = n <> E<> 2 n = 0 n = 0 (n) > 1 n > 0 n = n = 0 n = j(1, n)) B"bar" x1 = oldLock lockScreen targetWindow n = 0 x1 + (n > 0 ASYM_Reset notifyAfter _ftp_messageBox txt,titl,icn,btns,hlpTag,hlpFile LOCAL WORD flags linkDLL "USER" INT __MessageBox = 2,STRING, _ <> b <> F1Msg = 0x0400+208 translateWindowMessage windowHandle targetWindow on F1Pressed "stop" "hand" H0x0010 c"question" H0x0020 c"exclamation" H0x0030 c"info" c"asteri" H0x0040 "OKCancel" H0x0001 "RetryCancel" H0x0005 "AbortRetryIgnore" H0x0002 "YesNo" H0x0004 "YesNoCancel" H0x0003 "abort" "retry" "ignore" "yes" untranslateWindowMessage oHlpTag oHlpFile ASYM_WinHelp( AllowOverwriteDB destFn, srcFn, destFnInfo, srcFnInfo, IsBatch v = D overwrite" isOpen close v defaultPage txt = expandString(_ftp_GetString("Replace f prompt",\ existing file" & CRLF & """%1"""), xNULL N x",\ \%1"""), "Text" enabled B"All" xFALSE) 4s_asym_ftp_allowODB oldCursor = %modal GB & "" buttonClick "Yes" FTPShowStatus msg, progress1 hideMyViewer v = "Progress 1" defCaption v = s_asym_ftpProgressMessage xIsOpen defaultPage x"<keep>" "Info" -- spec: -- The value 1, 2 -- If 3 , the 1st assumed be shown -- range (must be positive -- -- If 2 -- -- If 1 -- no bar list" Jprompt" ) > 0 showMyViewer v = state "minimized" v = _ftp_GetString("Transfer")\ linkDLL user WORD BringWindowToTop( windowHandle v = objectContainer ( close v 4s_cancel cmdLine 4s_appCmdLine leaveApplication enterApplication -- only one instance allowed "ToolBook" xNULL hWnd = linkDLL "user" WORD ShowWindow( BringWindowToTop( setRemote "localDirAndFileList" --sysSuspendMessages = TRUE ss = = FALSE; dllName = "tbdlg. ASYM_Is32Bit() -- STRING getShortFileName32 ( $openFileDlg = openFileDlgLFN ( P, INT) \chooseDirectoryDlg = ASYM_MessageBox (expandString (ASYM_GetString ("CantFindDLL", "Cannot find required %1"), \ FInitError", "Initialization ), "Exclamation", "OK") ASYM_OpenFileDlg captionText, defaultFile, defaultPath, filters, index ASYM_ChooseDirectoryDlg propValue _ftp_trim( btn = B"recurse" enabled _ftp_isDirectory( xFALSE fixMyPrompt notifyBefore OK = oOK = OK }asym_reset --Modifications --DG SPR 1793 cad980825 file Local Directory propValue _ftp_trim( ooldEmpty fixMyPrompt --1793 otypedIn = FALSE --1793 "TRUE notifyBefore --1793 --1793 --1793 updateLocalDir --1793 --1793 \--1793 ASYM_IsFile( " = _ftp_PathOfFile( asym_reset linkToDLL 4s_asym_ftp32 ss = verno = sysVersion & = FALSE -- linkDLL ("tb" & D& "DOS.dll") INT CopyFile(STRING, reateDirectory( ! GetCurrentDirectory( > GetCurrentDrive() U GetFileAttributes( p GetFileDate( GetFileList( GetFileOnlyList( LONG GetFileSize( SetCurrentDirectory( SetCurrentDrive( xNULL "DISABLED" r= "-24" = ASYM_Is32Bit() file32DLL = "tbfile32. FileExists32 ( = -24 a&& "error" && & CRLF & "Continuing without psupport." getLongFileName32( WORD) getShortFileName32( = copyFile32( CreateDirectory = createDirectory32( INT = fileExists32( = GetCurrentDrive32() = GetFileAttributes32( = GetFileDate32( = GetFileList32( = GetFileOnlyList32( = GetFileSize32( MoveFile = MoveFile32( RemoveFile = RemoveFile32( = SetCurrentDrive32( _ftp_IsDirectory dirspec ("D" _ftp_SetCurrentDirectory pathStr result = -1 ccnt = &- 1 C <> ":" d = p = ~(":", p > 1 nd = -- This works more nicely fCBT Edition, but won't fail _ASYM_IsDriveReady(nd) (nd) _ftp_CurrentDirectory drv = dir = <> "\" c":" c"\\" expandString("%1:\%2", lowerCase( _ASYM_ftpGetTotalFileSize dirName, boolRecurse,\ boolShowProgress 4s_asym_ftp_fcnt, s_asym_ftp_fsize ZLocalDirMap[][] oldCursor = E = 0 ^ = 0 GetLocalDirMap( & "*.*", Hreference,\ szLocalDir, dirDepth, boolTallyFileSize, , ftpkey -- Assumes ? ends fa "\" ftpKey ShowStatus "<keep>", & ",0,0"\ "glue winftp" dimensions( oldCnt = oldDepth = fileNameMask = & "*.*" dirList = -- While here, might %well count the files HcountFiles( [i] = cnt][i] j] = & "\"), _ASYM_ftpLocalCopyFiles sourceDir, destDir, bRecurse,\ bPromptOverwrite, bOnlyIfNewer, bShowProgress, szShowResult , s_cancel,\ s_asym_ftp__nDone, s_asym_ftp__sizeDone,s_asym_ftp__start,\ s_asym_ftp__overwrite LinkToDLL ne = 0 w = 0 errVal = 0 -- Count root directory & "*.*", r= _ftp_GetString("Access denied"," /CantCreateDestDir",\ "Cannot destination ") && >= 0 -- Map subdirectories those -- As we %needed ) -- don't tally subDirCnt i][j] & "\" subDest = ") && subSrc = copyDirFilesOnly( -- recursive >= 0 >= 0 "), 100,100 showStatus -26 -- canceled Huser Undefined transfer txt = Transfer complete"," update",\ be updated.") copied c."), captn = SPACE icn = "info" #hand" _ftp_MessageBox(txt, msg, prgrs pgStatus = B"Cancel" FTPShowStatus srcDir, te = fList = g & "*.*", y,"N")) strFmt = "#" & sysThousand & "##0" tot = progressTxt = Y bytes fn = v = windowFromPoint(pageUnitsToScreen(\ mousePosition q = objectFromPoint( FlushMessageQueue() E skCancelFileXfer",\ ,"question","YesNo") srcFn = & fn destFn = & fn ) = 1 xIsFileMoreRecent( s_asym_ftp__SizeDone destFnInfo = getFileDate( srcFnInfo = _ftp_AllowOverwriteDB( "Yes" te = errval = -26 IO Error",\ . The disk may be full.") CantOpenFile X",\ ""%1""."& use."),\ CantWriteFile X",\ ""%1""." & ."),\ Canceled * ",\ 9 .") CantCopyFile X ""%1"" ""%2""." & ."),\ newF, oldF d1 = FileDateInSeconds( d2 = (d1 > d2) "mm/dd/y" "h24: j:sec" _ftp_SearchDirForFile dir, fn, recurse "tbdos. getDirectoryOnlyListLFN( uir, fn, --Searches a function will also parameter --ASSUMPTION: ) have already been linked. & fn) = 1 dirNames = S&"*.*","N") skip "." tlc = textlineCount( child = p& "\" , fn, _ftp_PutFileList _ftp_PutDirectory p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11 spec = _ftpputDirDB(p1,p2,p3,p4,p5,p6,p7,p8,p9, ASYM_ftpBatchPutDirectory \ szHost, szUser, szPassword, szAccount,\ szLocalDir, szRemoteDir, boolRecurse, boolLowerCase,\ boolPromptOverwrite, boolOnlyIfNewer, boolShowProgress, szDoneMessage 4s_asym_ftp_putDirDB v = "Login DB" objectContainer( isOpen close v defaultPage v = _ftp_GetString(" Upload Files FTP") L settings were ; now see the parameters override defaults "host" "user" propValue "account" directory" B"recurse" B"forceLowerCase" B"promptOverwrite" B"onlyIfNewer" B"showProgress" B"showResult" "source options" = "LocalDirectory,lock" oldCursor = %modal AUTHOR -- -- Copy FTP Server" --** asym_reset objs = getObjectList( (propType Author saveIniSettings = FALSE = TRUE SaveIniSettings firstIdle "filelist" fileExists( p") = 1 (ftp_isDirectory( btn = B"OK" <> enabled pgLinkDLL() initDefaults remoteSet what, toWhat "localDirAndFileList" setLocalDirAndFileList( Uused launch relaunch --!! --NOTE: must be unquoted contain no spaces --!! -- If r them 2 = 3 = -- Param 3 can be a fully qualified relative -- If valid, -- If Uparams are /use .ini defLocalDir = defFileList = lockIt = xftp_IsDirectory( ":\" "\\" ftp_CurrentDirectory & ) <> 1 Name" optn = " LockIt 4s_AppCmdLine iniFile = asym_ftp_IniFile() propName = GetIniVar(" upload", mungePassword( SetLocalDirAndFileList( "tb60.ini" = _ftp_trim( szFileListFileName = szShowResult = szJavaTopDir = "< UseFileList = ( "Source --Check being uploaded szJavaTopDirectory javaTestFile = ASYM_Is32Bit() -- -- test -- SearchFileForString( -- -- -- c"\\" -- c":\" -- -- -- -- path; -- = AppendPath( -- -- t exists _ftp_SearchDirForFile( _ftp_PathOfFile( cap = targetWindow msg = "ToolBook classes detected among files 7 names M-sensitive on many web servers." \ && "The ""Force lower will be ignored these ASYMR() <> ASYM_GetString("JavaLowerCaseWarning", msg) ASYM_MessageBox( &, cap, "INFORMATION", "OK") -- -- = "Yes" -- = "Cancel" -- useFileList ASYM_ftpBatchPutFilesFromList( remember = login" oType = GROUP SetIniVar(" obj, checkDirForFiles getFileList( & "*.*") verNo = sysVersion & -- winDLL = "tb" & .dll" -- dlgDLL = "tb" & INT STRING, Ztemp key = "~1~!" oldscf = sysCurrency = "$" /,s) = 1 o(256 - j(72,i) - U(s) n = "0123456789ABCDEF" Ri + 1 "0123456789 "@h00" o(256 - n) 256 - %"@H00" o(256 - j(72,i) - isNumber x isType(real,x) , str --Searches a readSize = 32767 -- 32K chunks (arbitrary) rv = ss = se = r= se; lastChar = (str) - 1 beginning > 0) CRLF) rv = Jbit buffer crosses c(i > 0) i > 0 r= se; appendPath p1, p2 p1 <> "\" p2 = "\" p1 & p2 enterApplication javaTestFile objectContainer( 8") = "ACIApplet.class" ftp_IsDirectory x _ftp_IsDirectory(x) "Local Files Manager" ftp_CurrentDirectory _ftp_CurrentDirectory() ftp_SetCurrentDirectory s _ftp_SetCurrentDirectory(s) _ftp_SearchDirForFile dir, fn, recurse _ftp_messageBox p1,p2,p3,p4,p5,p6,p7 %(p1,p2,p3,p4,p5,p6,p7) "Message _ftp_trim s txt = SPACE,CR,LF,TAB cs <> s <= cs <> s <= _ftp_GetString strgName, strgDflt Zstrgs[][] bk = 8;bk = ss = I = _ASYM_StringArray n = 0 dimensions( i][1] = i][2] n = i n > 0 s = n][2] s = s = s = _ftp_AllowOverwriteDB destFn, srcFn, destFnInfo, srcFnInfo, IsBatch Q DB" _ftp_container testObj, objTypeList ZnextObj, wCnt = * <> = "BOOK" WCnt "groupfieldrecordfieldpagebackgroundbook" p = , Obj) p > 0 Vp+4 f <> --BC SPR 865 qparameter szJavaTopDir -- Undocumented $, will only be populated -- function called the FTP dialog. If -- a user app, y, which indicates -- we should examine Tsource directory here classes. -- cad981012 ASYM_ftpBatchPutDirectory szHost, szUser, szPassword, \ szAccount, szLocalDir, szRemoteDir, boolRecurse, \ boolLowerCase, boolPromptOverwrite, boolOnlyIfNewer,\ boolProgressMessage, szDoneMessage, ASYM_ftpLocalCopyTree ( ftpLoginDB( "login DB" ("Aborted = "< = NULL ASYM_Is32Bit() -- (), = _ftp_PathOfFile( _ASYM_ftpBatchPutDirectory ( "Glue WinFTP" ASYM_ftpPutDirectory p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12 _ftp_PutDirectory (p1,p2,p3,p4,p5,p6,p7,p8,p9, Upload Spec - Standalone" ASYM_ftpBatchPutFilesFromList szFileListFileName, \ szProgressMessage, DB" _ASYM_ftpBatchPutFilesFromList ( ASYM_ftpGetErrorString errNo $ Strings" ASYM_ftpGetFile RemoteFileName, szLocalFileName, DB" _ASYM_ftpGetFile ( ASYM_ftpPutFile DB" _ASYM_ftpPutFile ( unlinkSysBook ss = = FALSE ftp_Goodbye() leaveApplication ASYM_ftpMakeTempFile szStub _ASYM_ftpMakeTempFile( ASYM_ftpDeleteLocalFile szFn _ASYM_ftpDeleteLocalFile( ASYM_ftpGetTotalFileSize dirName, bRecurse _ASYM_ftpGetTotalFileSize( ASYM_CopyTree sourceDir, destDir, bPromptOverwrite, W bShowProgress, szShowResult _ASYM_ftpLocalCopyFiles( ASYM_ftpDelFileTree Confirm, _ftp_delFileTree ( "glue ASYM_ftpDelDirTree _ftp_delDirTree ( sysOperatingSystem "DOS" < 3.95 T fn cfn <> fn <> "\" ftpLoginDB szHost, szUser, szPassword, szAccount 4s_asym_ftp_LoginDB v = S DB" objectContainer( isOpen close v defaultPage v = _ftp_GetString("FTP "host" "user" propValue "account" oldCursor = %modal firstIdle iniFile = asym_ftp_IniFile() objs = getObjectList( (propType P = GetIniVar("Batch upload",\ s_asym_ftp_loginDB = trim( -- INST65 SPR#1001 SladeM 101498 txt = SPACE & CR & LF & TAB cs <> s <= cs <> s <= btn = B"OK" <> enabled fileExists tb2ftp.dll,tb5ftp.dll,winftp.dll,tb2ftp32.dll,winftp32.dll dllName PossibleNames dirName __ftpDLLName .-+ +L zftp_mput strCopying putDirFiles FALSE s_asym_ftp_fCntDone Ty_ftp_getString currentPwd Local Files Manager No files to upload to remote FTP site. checkFTPResult oldCursor result Checking files LoginPwd %2 updated MoveToRemoteDirectory x copied ftp_GoodBye InitFTPLink countFiles ShowOptionalDone s_asym_ftpfsize %2 copied Local directory not found: %1 No Files To Upload boolBinary ShowStatus fileNameMask x updated false s_asym_ftpHandle PutSubDirFiles Ty_ftp_GetString CopyingFiles setFTPDLLOptions 5eGetLocalDirMap strCnt No local dir named X %1 files Undetermined error. s_asym_ftp_fcntUpdated s_asym_ftp_promptOverwrite inDir javaFlag Inventorying x files ftp_isDirectory dirInJavaDir s_asym_ftp_fcntToDo @ftp_pwd s_asym_ftp_fcnt CreateOrVerifyRemoteDir Copying file(s)... ftp_GetLastError _ASYM_ftpBatchPutDirectory FALSE testDir inDir javaFlag dirInJavaDir cancel statusPg ;~FTPShowStatus progress by file showStatus .-+ +L 1, "j 1, "j 1, "j 1, "j , /EF strCopying isRemoteFileOlder ftp_ProgressBox in remote directory "%1" FALSE destFn allowOverwrite Ty_ftp_getString currentPwd oldPwd 6ftp_cwd getShortFileName32 Cannot find file %1 srcFn checkFTPResult oldCursor result File not found x LoginPwd %2 updated MoveToRemoteDirectory x copied 6ftp_CWD _ftp_PathOfFile Undetermined error. Canceled by user InitFTPLink countFiles Canceled by user. Copying files... GetShortFileName32 ShowOptionalDone bPromptOverwrite %2 copied copyResult Lftp_put getLongFileName32 s_asym_ftp_fcnt boolBinary ShowStatus ASYM_ftpGetErrorString fileNameMask _ftp_trim x updated FileExists risNumber s_asym_ftpHandle actualSrcFn Ty_ftp_GetString setFTPDLLOptions ftp_GetLastError Out of sync error in walking destination directories. x files strCnt No local dir named X %1 files ftp_Goodbye No files to upload to remote FTP site. sz_LocalDir s_asym_ftp_fcntUpdated s_asym_ftp_promptOverwrite s_asym_ftp32 CannotCreateRemoteDir X ftp_CurrentDirectory destInfo ftp_isDirectory asym_ftpLinkDLL ftp_mkdir Heftp_CDUp @ftp_pwd No Files To Upload Cannot create remote directory %1 Local directory not found: %1 destPath in remote dir x dirName _ASYM_ftpBatchPutFilesFromList FALSE ftp_setASCII ftp_ProgressBox ftp_GetLastError Rftp_setBinary setFTPDLLOptions ASYM_ftpGetErrorString errStr %1 Unknown FTP Error while uploading file(s). Ty_ftp_getString UnknownTransferError X aborted by user ftp_GetLastError rcode 'Iftp_replyCode Transfer canceled by user checkFTPResult asym_ftpGetErrorString errStr getShortFileName32 risNumber emoveFile FileExists FALSE destfN s_asym_ftpHandle Ty_ftp_getString Ty_ftp_GetString setFTPDLLOptions No need to update ShowOptionalDone tempFn No need to update file. result aborted by user P7ftp_get qxftp_Quit ftp_GetLastError s_asym_ftp32 _ftp_AllowOverwriteDB $$$FTP$.TMP Cannot get file "%1" from FTP Server "%2". InitFTPLink ftp_GoodBye isLocalFileOlder Transfer canceled by user asym_ftpLinkDLL Cannot get file X from FTP Y RemoveFile destPath _ASYM_ftpGetFile w, #Z remoteFn errStr asym_ftpLinkDLL tryDir FALSE Transfer aborted by user Ty_ftp_getString Cantput X to Y on Z tryPwd checkFTPResult result remFileInfo ftp_GetLastError ftp_GoodBye _ftp_AllowOverwriteDB rcode InitFTPLink Lftp_put Ty_ftp_GetString Cannot copy file "%1" to file "%2" on FTP Server "%3". FileExists32 BadLocalFileNameX Rftp_setBinary risNumber FileExists ftp_setASCII s_asym_ftpHandle localFileDateInSeconds szRemoteDir errString32 showStatus ShowOptionalDone setFTPDLLOptions ftp_Goodbye aborted by user qxftp_quit Bad local file name: %1 s_asym_ftp32 6ftp_cwd qremoteFileInfo on FTP server "%1" getShortFileName32 @ftp_pwd on FTP Server x ftp_ProgressBox MoveToRemoteDirectory _ASYM_ftpPutFile verNo false dosDLL getLongFileName32 getShortFileName32 copyFile32 CopyFile createDirectory32 CreateDirectory fileExists32 FileExists GetCurrentDirectory32 GetCurrentDirectory GetCurrentDrive32 GetCurrentDrive GetFileAttributes32 GetFileAttributes , UB GetFileDate32 GetFileDate GetFileList32 GetFileList GetFileOnlyList32 GetFileOnlyList GetFileSize32 GetFileSize MoveFile32 MoveFile RemoveFile32 RemoveFile SetCurrentDirectory32 SetCurrentDirectory SetCurrentDrive32 SetCurrentDrive tbfile32.dll FALSE FileExists GetDirectoryOnlyList W=g GetFileDate GetFileList GetFileSize GetFileOnlyList GetFileAttributes MoveFile RemoveFile error ftp_Abort ftp_CD ftp_CWD ftp_CDUp ftp_CopyReplyStr ftp_delete ftp_dir ftp_get _ftp_get ftp_getReply ,)U&$ ftp_IsConnected ftp_lcd ftp_SetLocalDir ftp_login ftp_ls ftp_lastError _ftp_lastError ftp_mget ftp_mkdir ftp_mput _ftp_mput ,)T&0 ftp_open ftp_OpenHostSession ftp_put _ftp_put ftp_pwd _ftp_pwd ftp_quote _ftp_quote ,)T"( ftp_quit ,)T| ftp_relogin ftp_replyCode ftp_rmdir ftp_setASCII ftp_setbinary ftp_statusBox ftp_ProgressBox ftpDLLName file32DLL s_asym_ftp32 BringWindowToTop ShowWindow IsWindow kernel __ftpDLLName tbdos.dll ASYM_Is32Bit FileExists32 FileExists32 fileDLL32 GetTempFileName GlobalAlloc GlobalLock GlobalUnlock GlobalFree Continuing without long file name support. asym_ftpLinkDLL _ftp_messageBox Message Box _ftp_messageBox w, "X GetFileOnlyList CountFiles ShowStatus ASYM_ftpGetErrorString dirDepth remDir risNumber Ty_ftp_GetString oldPwd checkFTPResult result Heftp_CDUp _ftp_messageBox ftp_GetLastError CannotCreateRemoteDir X 6ftp_CWD Error navigating remote tree Checking remote directory ErrNavRemTree Ty_ftp_getString ftp_mkdir @ftp_pwd Cannot create remote directory %1 CreateOrVerifyRemoteDir GlobalUnlock hBuff _ftp_lastError result GlobalLock GlobalFree GlobalAlloc lpBuff ftp_GetLastError showStatus risNumber s_asym_ftpHandle __ftpDLLName ftp_Abort qxftp_Quit dllName ftp_Goodbye GlobalUnlock hBuff GlobalFree result GlobalLock GlobalAlloc lpBuff d_ftp_pwd ftp_pwd GlobalUnlock hBuff GlobalFree result GlobalLock GlobalAlloc lpBuff _ftp_quote ftp_quote GlobalUnlock hBuff ftp_CopyReplyString GlobalFree result GlobalLock GlobalAlloc lpBuff ftp_replyString ,,H., risNumber FTPErrNoFromErrString ftp_Quote systName Windows @ftp_pwd getDirSeparator .-+ +L .-+ +L .-+ +L s_asym_ftpPassword s_asym_ftpUserID showStatus asym_ftpGetErrorString errStr Login successful. One moment, please... ftp_relogin Connecting Login OK FALSE risNumber s_asym_ftpHandle Ty_ftp_getString Cannot connect to FTP X oldCursor s_asym_ftpHost Connection failed. qxftp_quit Cannot connect to FTP Server "%1". ftp_GoodBye result errNo ftp_Abort s_asym_ftpPwd Login for user "%1" refused by FTP Server "%2". qxftp_Quit ftp_GetLastError ftp_Goodbye yftp_openHostSession ftp_isConnected Cannot Log in X to FTP Y Unknown host: %1 ConnectedLogin Connecting... Ty_ftp_GetString asym_ftpLinkDLL Unknown Host X s_asym_ftpAccnt @ftp_pwd checkFTPResult Connected. Logging in... unknown host InitFTPLink debugpwd CannotGoOrMakeRemDir X Cannot find remote directory %1. oldPwd checkFTPResult Cannot access remote directory "%1" or create it. ParseDirs getDirSeparator 6ftp_CWD Ty_ftp_getString No remote dir x ftp_mkdir rightMatch @ftp_pwd MoveToRemoteDirectory 1, "j ParseDirs ,,H., _ftp_messageBox fileNameMask oldPwd Heftp_CDUp ftp_GetLastError subDir 6ftp_CWD Error navigating remote tree putDirFiles Ty_ftp_getString ErrNavRemTree @ftp_pwd PutSubDirFiles w, #Z ,,H., Canceled by user. zftp_mput errStr getShortFileName32 UnspecifiedMassPutError [6ftp_dir FALSE destFn ASYM_ftpGetErrorString allowOverwrite s__ftp_tempDirFile s__ftp_remdirlist Canceled by user result aborted by user x copied &~ASYM_ftpMakeTempFile Ty_ftp_getString Copying files... Lftp_put %2 copied getLongFileName32 s_asym_ftp_fcnt ShowStatus s_asym_ftp_fCntDone Unspecified FTP Error while uploading file(s). risNumber fList GetFileOnlyList @ftp_pwd Ty_ftp_GetString ftp_ProgressBox x files fullFn %1 files s_asym_ftp_fCntToDo s_asym_ftp_fcntUpdated s_asym_ftp_promptOverwrite s_asym_ftp32 removeFile x updated in remote directory "%1" destInfo CountFiles Transfer canceled by user isRemoteFileOlder %2 updated in remote dir x ftp_GetLastError PutDirFiles ftp_ls tempFn &~ASYM_ftpMakeTempFile getRemoteFileList FALSE localFileDateInSeconds remoteFileDateInSeconds qRemoteFileInfo isRemoteFileOlder FALSE localFileDateInSeconds qremoteFileInfo isLocalFileOlder 1, #? lstrcmp MMM d, y dummy [6ftp_dir h24:min risNumber _ftp_trim s__ftp_tempDirFile &~ASYM_ftpMakeTempFile @Nlstrcmp tempFn removeFile 6ftp_cwd seconds @ftp_pwd hh:minAMPM mm-dd-y remoteFileInfo .-+ +L dirInfo qremoteFileInfo result _ftp_AllowOverwriteDB allowOverwrite ,,H., s__ftp_remdirlist @Nlstrcmp lstrcmp FindFileInRemDirList false rightMatch _ftp_messageBox s_asym_ftp_fCntUpdated FALSE risNumber The file transfer could not be completed. Ty_ftp_getString No files updated. %1 files copied or updated. Bad transfer Transfer successful No files updated n files updated Ty_ftp_GetString The file transfer was successful. ShowOptionalDone szStup GlobalUnlock hBuff GlobalFree GlobalLock GlobalAlloc getTempFileName asym_ftpLinkDLL lpBuff _ASYM_ftpMakeTempFile RemoveFile32 RemoveFile RemoveFile tbfile32.dll RemoveFile , Tmx#G-) tbdos.dll ASYM_Is32Bit _ASYM_ftpDeleteLocalFile isNumber FALSE zapDirFiles _ftp_delFileTree zapDirFiles _ftp_delDirTree .-+ +L _ftp_MessageBox Canceled by user DelDirtree success deleteFilesInCurrentRemoteDir FALSE Successfully deleted remote directory "%1" Ty_ftp_GetString dirToZap in remote directory "%1." LoginPwd ftp_GetLastError ftp_GoodBye InitFTPLink and all its files and subdirectories. YesNo or one of its subdirectories or files. DelFileTree confirm Successfully deleted all the files and subdirectories Deltree error Delete remote directory "%1" Error deleting remote directory "%1" beginPwd in remote directory "%1"? DelFiletree success oldCursor files deleted Delete all the files and subdirectories question qxftp_quit s_asym_ftp_delFailed captn 6ftp_CWD and all its files and subdirectories? DelDirtree confirm @ftp_pwd Heftp_CDUp s_asym_ftp_delOK ftp_rmdir zapDirFiles debugpwd ASYM_ftpDeleteLocalFile _ftp_trim remFn 6ftp_CWD ftp_ls tempFn s_asym_ftp_delFailed ftp_delete &~ASYM_ftpMakeTempFile @ftp_pwd deleteFilesInCurrentRemoteDir Heftp_CDUp s_asym_ftp_delOK ftp_rmdir deleteFilesInCurrentRemoteDir h24:min:sec mm/dd/y seconds GetFileDate localFileDateInSeconds 1, #? dirInfo debugpwd MMM d, y ASYM_ftpDeleteLocalFile [6ftp_dir risNumber &~ASYM_ftpMakeTempFile tempFn hh:minAMPM result seconds h24:min @ftp_pwd mm-dd-y remoteFileDateInSeconds ConfirmAbortTransfer ReEnableViewers result ]tdisableViewers o_ftp_put ftp_put ConfirmAbortTransfer Z_ftp_get ReEnableViewers result ]tdisableViewers ftp_get ConfirmAbortTransfer ReEnableViewers result _ftp_mput ]tdisableViewers ftp_mput mainWin ~isWindow s__winArray s__winArrayCnt BringWindowToTop ShowWindow ReEnableViewers activeWin winList s__winArray s__winArrayCnt BringWindowToTop ShowWindow DisableViewers _ftp_MessageBox Canceled by user YesNo Ty_ftp_GetString Canceled by user. Cancel file transfer? AskCancelFileXfer question ConfirmAbortTransfer FALSE inDir propValue false fixMyPrompt propValue fixMyPrompt buttonClick Explain recurse Ty_ftp_getString You must specify a local directory. Must specify local dir Explain no recurse local dir explain will be copied to the destination directory and its subdirectories. All the files in this directory, and all the files in subdirectories, Subdirectories will be created as necessary. All the files in this directory will be copied to the destination directory. fixMyPrompt propvalue asym_reset propValue buttonClick FileList grpLocalDirSpec FALSE Local Dir Spec choice grpFileListSpec lockOut File List Spec LocalDirectory propValue choice propValue propValue fixMyPrompt yoldEmpty propValue _ftp_trim fixMyPrompt leaveField yoldEmpty fixMyPrompt into the login directory. Ty_ftp_getString Explain no remdir The files will be copied into the specified directory. Explain remdir If the directory does not exist, it will be created first. remote dir explain yoldEmpty Unless you specify a directory, the files will be copied fixMyPrompt asym_reset reset enterPage xRange status reset xRange xRange status progress progress ASYM_Reset progress leavePage cancel retry ignore RetryCancel HlpTag exclamation 1HlpFile asteri MessageBox __MessageBox AbortRetryIgnore OKCancel YesNo abort YesNoCancel __MessageBox F1Pressed 1hlpFile question hlpTag _ftp_messageBox 1HlpFile HlpTag %ASYM_WinHelp F1Pressed .-+ +L with file x s_asym_ftp_allowODB with file FALSE oldCursor Replace f prompt Allow overwrite Ty_ftp_GetString Replace existing file AllowOverwriteDB button close s_asym_ftp_allowODB buttonClick close cancel 1HshowMyViewer Progress 1 cancel prompt <keep> progress s_asym_ftpProgressMessage defCaption Progress in list 'hideMyViewer progress1 FTPShowStatus Ty_ftp_GetString Progress 1 s_asym_ftpProgressMessage BringWindowToTop Transfer defCaption minimized BringWindowToTop showMyViewer Progress 1 progress1 hideMyViewer s_cancel 'hideMyViewer cancel buttonDown .-+ +L s_appCmdLine enterSystem s_appCmdLine leaveApplication Initialization Error CantFindDLL sysWindowHandle Exclamation ShowWindow BringWindowToTop localDirAndFileList ToolBook openFileDlgLFN openFileDlg chooseDirectoryDlgLFN chooseDirectoryDlg openFileDlg chooseDirectoryDlg ASYM_Is32Bit dllName s_appCmdLine ASYM_GetString ASYM_MessageBox InitError Cannot find required DLL %1 BringWindowToTop tbdlg.dll ShowWindow enterApplication .-+ +L enterPage w, #Z openFileDlg ASYM_Is32Bit ASYM_OpenFileDlg w, #Z .chooseDirectoryDlg ASYM_Is32Bit ASYM_ChooseDirectoryDlg _ftp_trim propValue recurse FALSE fixMyPrompt _ftp_isDirectory propValue _ftp_trim leaveField recurse FALSE fixMyPrompt _ftp_isDirectory asym_reset _ftp_trim propValue fixMyPrompt yoldEmpty propValue FALSE HtypedIn enterField HtypedIn keyChar HtypedIn paste HtypedIn HtypedIn clear _ftp_trim iupdateLocalDir fixMyPrompt leaveField HtypedIn FALSE HtypedIn iupdateLocalDir fixMyPrompt _ftp_trim ASYM_IsFile Local Directory _ftp_PathOfFile propValue updateLocalDir asym_reset 1, #> verno FileExists32 DISABLED getLongFileName32 getShortFileName32 copyFile32 CopyFile createDirectory32 CreateDirectory fileExists32 FileExists GetCurrentDirectory32 GetCurrentDirectory GetCurrentDrive32 GetCurrentDrive GetFileAttributes32 GetFileAttributes , UB GetFileDate32 GetFileDate GetFileList32 GetFileList GetFileOnlyList32 GetFileOnlyList GetFileSize32 GetFileSize MoveFile32 MoveFile RemoveFile32 RemoveFile SetCurrentDirectory32 SetCurrentDirectory SetCurrentDrive32 SetCurrentDrive tbfile32.dll CopyFile CreateDirectory GetCurrentDirectory GetCurrentDrive GetFileAttributes GetFileDate GetFileList GetFileOnlyList GetFileSize SetCurrentDirectory SetCurrentDrive error s_asym_ftp32 tbdos.dll ASYM_Is32Bit FileExists32 file32DLL Continuing without long file name support. linkToDLL GetFileAttributes linkToDLL _ftp_IsDirectory GetCurrentDrive false SetCurrentDirectory result SetCurrentDrive (_ASYM_IsDriveReady linkToDLL _ftp_SetCurrentDirectory vGetCurrentDirectory GetCurrentDrive %1:\%2 ASYM_Is32Bit linkToDLL _ftp_CurrentDirectory .-+ +L 1, #> GetFileOnlyList false oldCursor s_asym_ftp_fsize GetFileSize 5eGetLocalDirMap s_asym_ftp_fcnt linkToDLL _ASYM_ftpGetTotalFileSize 1, #Z ,,H., dirList ShowStatus fileNameMask GetFileList 5eGetLocalDirMap s_asym_ftp_fsize <keep> GetFileSize glue to winftp GetFileAttributes ASYM_Is32Bit oldDepth s_asym_ftp_fcnt GetLocalDirMap .-+ +L 1, #> showStatus dirDepth Access denied. Undefined transfer error. s_cancel FALSE No file needed to be updated. Cannot create destination directory s_asym_ftp__start s_asym_ftp__overwrite false s_asym_ftp__sizeDone GetFileSize Transfer complete Ty_ftp_GetString CreateDirectory 5eGetLocalDirMap No file needed update _ftp_IsDirectory s_asym_ftp_fcnt x files copied Access denied x files copied or updated GetFileOnlyList CantCreateDestDir subSrc s_asym_ftp__nDone errVal subDirCnt s_asym_ftp_fsize Transfer complete. %1 files copied or updated. _ftp_MessageBox subDir captn oldCurs %1 files copied. subDest copyDirFilesOnly LinkToDLL _ASYM_ftpLocalCopyFiles Cancel pgStatus ;~FTPShowStatus Progress by file showStatus w, #Z ,,H., cancel srcFnInfo Canceled by user s_cancel CantCopyFile X to Y FALSE destFn strFmt s_asym_ftp__overwrite Cannot open file "%1". s_asym_ftp__sizeDone GetFileSize Cancel file transfer? _ftp_AllowOverwriteDB srcFn AskCancelFileXfer Cannot write file "%1" to directory "%2". question CantOpenFile X errVal getFileDate Access denied or write error. YesNo fList File error. The destination disk may be full. GetFileOnlyList s_asym_ftp__nDone IsFileMoreRecent Ty_ftp_GetString showStatus Canceled by user. Access denied or the file may be in use. s_asym_ftp_fsize iCopyFile progressTxt CantWriteFile X _ftp_MessageBox Cannot write file "%1". FileExists destFnInfo File IO Error X of Y bytes copied %1 of %2 bytes copied s_asym_ftp_fcnt progress copyDirFilesOnly FileDateInSeconds IsFileMoreRecent h24:min:sec mm/dd/y seconds GetFileDate FileDateInSeconds fileExists getDirectoryOnlyListLFN tbdos.dll SearchDirForFile _ftp_SearchDirForFile 1, #> fileExists dirNames child 6getDirectoryOnlyListLFN SearchDirForFile SearchDirForFile _ftp_PutFileList ASYM_ftpBatchPutDirectory _ftpputDirDB _ftp_PutDirectory .-+ +L recurse forceLowerCase source options promptOverwrite oldCursor LocalDirectory,lock showProgress Batch Upload Files to FTP s_asym_ftp_putDirDB onlyIfNewer Local directory password Login DB Ty_ftp_GetString account propValue showResult Remote directory _ftpputDirDB AUTHOR author reader propType asym_reset propValue asym_reset saveIniSettings Author asym_reset SaveIniSettings field enterField field firstIdle filelist file list file name fileExists local directory propValue password ftp_isDirectory source options AUTHOR pgLinkDLL !initDefaults enterPage localDirAndFileList setLocalDirAndFileList remoteSet ,,H., FileList File List File Name defLocalDir fileExists FALSE ,lock source options lockIt Local Directory defFileList /lock ftp_IsDirectory ftp_CurrentDirectory propValue LocalDirectory setLocalDirAndFileList propType iniFile asym_ftp_IniFile local directory bmungePassword GetIniVar SetLocalDirAndFileList password s_AppCmdLine ftp_CurrentDirectory propValue pgLinkDLL Batch upload propName initDefaults asym_ftp_IniFile .iniFile tb60.ini asym_ftp_IniFile .-+ +L .-+ +L recurse _ftp_SearchDirForFile Java class names are case-sensitive on many web servers. forceLowerCase boolOnlyIfNewer szPassword ASYM_ftpBatchPutDirectory boolRecurse szAccount showProgress boolLowerCase propValue SaveIniSettings szFileListFileName ASYM_MessageBox The "Force file names to lower case" setting will be ignored for these files. _ftp_PathOfFile ASYMR boolPromptOverwrite t3ASYM_ftpBatchPutFilesFromList File List File Name JavaLowerCaseWarning szLocalDir promptOverwrite szRemoteDir <none> _ftp_trim s_asym_ftp_putDirDB szJavaTopDir onlyIfNewer local directory szUser remote directory boolShowProgress javaTestFile ASYM_GetString ToolBook Java classes were detected among the files to be uploaded. javaTestFile szShowResult ASYM_Is32Bit account showResult szHost Source options INFORMATION password propType iniFile asym_ftp_IniFile Group remember login propValue bmungePassword Batch upload remember SetIniVar oType password propName SaveIniSettings cancel false getFileList checkDirForFiles 1, #> verNo winDLL dlgDLL SetIniVar GetIniVar tbwin.dll tbdlg.dll pgLinkDLL 1, "L ,,H., 1, "L ,,H., 1, "L ,,H., oldscf 0123456789ABCDEF mungePassword isNumber SearchFileForString appendPath enterApplication javaTestFile ACIApplet.class javaTestFile Local Files Manager _ftp_IsDirectory ftp_IsDirectory Local Files Manager _ftp_CurrentDirectory ftp_CurrentDirectory Local Files Manager mU_ftp_SetCurrentDirectory ftp_SetCurrentDirectory _ftp_SearchDirForFile Local Files Manager _ftp_SearchDirForFile _ftp_messageBox Message Box _ftp_messageBox _ftp_trim _ASYM_StringArray _ftp_GetString AllowOverwriteDB Allow Overwrite DB _ftp_AllowOverwriteDB groupfieldrecordfieldpagebackgroundbook of book _ftp_trim objType _ftp_container Glue to WinFTP ASYM_ftpLocalCopyTree _ftp_SearchDirForFile <none> Aborted by user. Ty_ftp_GetString Aborted by user _ASYM_ftpBatchPutDirectory local _ftp_PathOfFile login DB ftpLoginDB javaTestFile ASYM_Is32Bit ASYM_ftpBatchPutDirectory Batch Upload Spec - Standalone _ftp_PutDirectory ASYM_ftpPutDirectory Glue to WinFTP V_ASYM_ftpBatchPutFilesFromList Login DB ftpLoginDB ASYM_ftpBatchPutFilesFromList #ftpGetErrorString FTP Error Strings ASYM_ftpGetErrorString _ASYM_ftpGetFile Glue to WinFTP Login DB ftpLoginDB ASYM_ftpGetFile _ASYM_ftpPutFile Glue to WinFTP Login DB ftpLoginDB ASYM_ftpPutFile Glue to WinFTP ftp_Goodbye unlinkSysBook Glue to WinFTP ftp_Goodbye leaveApplication Glue to WinFTP ftp_Goodbye leaveSystem Glue to WinFTP _ASYM_ftpMakeTempFile ASYM_ftpMakeTempFile Glue to WinFTP _ASYM_ftpDeleteLocalFile ASYM_ftpDeleteLocalFile Local Files Manager o_ASYM_ftpGetTotalFileSize ASYM_ftpGetTotalFileSize Local Files Manager _ASYM_ftpLocalCopyFiles ASYM_CopyTree Local Files Manager _ASYM_ftpLocalCopyFiles ASYM_ftpLocalCopyFiles glue to WinFTP _ftp_delFileTree ASYM_ftpDelFileTree glue to WinFTP _ftp_delDirTree ASYM_ftpDelDirTree FALSE ASYM_Is32Bit _ftp_PathOfFile .-+ +L oldCursor s_asym_ftp_LoginDB FTP Login password Login DB Ty_ftp_GetString account propValue ftpLoginDB enterField field firstIdle propType iniFile asym_ftp_IniFile GetIniVar propValue Batch upload enterPage s_asym_ftp_LoginDB propValue password account cancel propValue password &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar question mark tile store 1 tile store 1 V D D K *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Group Stage Button Viewer ComboBox Field RecordField Hotword *RHOTWORD* *TbxBase* " lassTbl* , ne 6 " 6 eld D , D bxBase* bxBase* , 6 , F d "ToolBook Executable Startup System extensions registered apps asym.ini ToolBook Load Information Unable to read module file name. Missing an internal resource. Unable to lock resource. HtKHt t WjDV 
(.txt)